home *** CD-ROM | disk | FTP | other *** search
/ Cine Live 59 / Cine Live 59.iso / pc / Data / Interface / Vaillant.k < prev    next >
Encoding:
Text File  |  2002-06-10  |  1.8 KB  |  83 lines
  1. module oRoot1 is cBox
  2. with 
  3.     Flags is $00000152; 
  4.     release Editor:
  5.         IOWindow is {$00000135,$0000002A,$0000021F,$000003BF,$00000000,$00000000,$00000000,$00000000};
  6.         LayoutWindow is {$000001A3,$0000002E,$0000028F,$000001EF,$00000000,$00000000,$00000064,$00000000};
  7.     end;
  8.     Name is "Root"; 
  9.     Enabled is false; Cursor is oEmptyCursor; 
  10.     
  11.     Width is 800; Height is 600; 
  12.     
  13.     
  14.     Elements is [
  15.         oMovie2
  16.     ];
  17.     Events is [
  18.         cKeyboardEvent
  19.         with Flags is $00000004; Test is IsSpace; 
  20.             Commands is [
  21.                 cRunCommand
  22.                 with Flags is $00000004; Target is oMovie2; Mode is Toggle; end
  23.             ];
  24.         end,
  25.         cKeyboardEvent
  26.         with Value is "+"; 
  27.             Commands is [
  28.                 cSetVolumeCommand
  29.                 with Mode is ExecuteHigher; end
  30.             ];
  31.         end,
  32.         cKeyboardEvent
  33.         with Value is "-"; 
  34.             Commands is [
  35.                 cSetVolumeCommand
  36.                 with Flags is $00000004; Mode is ExecuteLower; end
  37.             ];
  38.         end,
  39.         cKeyboardEvent
  40.         with Value is "m"; 
  41.             Commands is [
  42.                 cRunCommand
  43.                 with Flags is $00000004; Mode is Toggle; Rewind is true; end
  44.             ];
  45.         end
  46.     ];
  47. end;
  48.  
  49. object oMovie2 is cMPEGMovie
  50. with 
  51.     Flags is $00000054; 
  52.     Name is "Movie"; 
  53.     Cursor is oEmptyCursor; 
  54.     AdjustX is AlignToCenter; AdjustY is AlignToMiddle; 
  55.     Width is 800; Height is 600; 
  56.     
  57.     URL is "data/Videos/vaillant.mpg"; URLOption is GetDiskURL; 
  58.     Events is [
  59.         cOnscreenEvent
  60.         with Flags is $00000004; 
  61.             Commands is [
  62.                 cTokenCommand
  63.                 with TokenName is "stop"; Mode is ExecuteTargetUpwards; Target is oRoot1; end,
  64.                 cRunCommand
  65.                 with Target is oTargetSelf; Rewind is true; end
  66.             ];
  67.         end,
  68.         cMouseDownEvent
  69.         with Flags is $00000004; 
  70.             Commands is [
  71.                 cBrowseCommand
  72.                 with URL is "data/Interface/copyright.k"; URLOption is GetDiskURL; end
  73.             ];
  74.         end,
  75.         cFinishedEvent
  76.         with Flags is $00000004; 
  77.             Commands is [
  78.                 cBrowseCommand
  79.                 with URL is "data/Interface/copyright.k"; URLOption is GetDiskURL; end
  80.             ];
  81.         end
  82.     ];
  83. end;